home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 February: Tool Chest / Dev.CD Feb 94.toast / Tool Chest / Development Platforms / MPW Related / MPW Interfaces / PInterfaces / Devices.p < prev    next >
Encoding:
Text File  |  1993-09-17  |  4.0 KB  |  151 lines  |  [TEXT/MPS ]
  1. {
  2.     File:        Devices.p
  3.  
  4.     Copyright:    © 1983-1993 by Apple Computer, Inc.
  5.                 All rights reserved.
  6.  
  7.     Version:    System 7.1 for ETO #11
  8.     Created:    Tuesday, March 30, 1993 18:00
  9.  
  10. }
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.     UNIT Devices;
  18.     INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingDevices}
  22. {$SETC UsingDevices := 1}
  23.  
  24. {$I+}
  25. {$SETC DevicesIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingOSUtils}
  28. {$I $$Shell(PInterfaces)OSUtils.p}
  29. {$ENDC}
  30. {$IFC UNDEFINED UsingFiles}
  31. {$I $$Shell(PInterfaces)Files.p}
  32. {$ENDC}
  33. {$IFC UNDEFINED UsingQuickdraw}
  34. {$I $$Shell(PInterfaces)Quickdraw.p}
  35. {$ENDC}
  36. {$SETC UsingIncludes := DevicesIncludes}
  37.  
  38. CONST
  39. newSelMsg = 12;
  40. fillListMsg = 13;
  41. getSelMsg = 14;
  42. selectMsg = 15;
  43. deselectMsg = 16;
  44. terminateMsg = 17;
  45. buttonMsg = 19;
  46. chooserID = 1;
  47. initDev = 0;        {Time for cdev to initialize itself}
  48. hitDev = 1;         {Hit on one of my items}
  49. closeDev = 2;       {Close yourself}
  50. nulDev = 3;         {Null event}
  51. updateDev = 4;      {Update event}
  52. activDev = 5;       {Activate event}
  53. deactivDev = 6;     {Deactivate event}
  54. keyEvtDev = 7;      {Key down/auto key}
  55. macDev = 8;         {Decide whether or not to show up}
  56. undoDev = 9;
  57. cutDev = 10;
  58. copyDev = 11;
  59. pasteDev = 12;
  60. clearDev = 13;
  61. cursorDev = 14;
  62. cdevGenErr = -1;    {General error; gray cdev w/o alert}
  63. cdevMemErr = 0;     {Memory shortfall; alert user please}
  64. cdevResErr = 1;     {Couldn't get a needed resource; alert}
  65. cdevUnset = 3;      { cdevValue is initialized to this}
  66.  
  67. { Monitors control panel messages }
  68. initMsg = 1;        {initialization}
  69. okMsg = 2;          {user clicked OK button}
  70. cancelMsg = 3;      {user clicked Cancel button}
  71. hitMsg = 4;         {user clicked control in Options dialog}
  72. nulMsg = 5;         {periodic event}
  73. updateMsg = 6;      {update event}
  74. activateMsg = 7;    {not used}
  75. deactivateMsg = 8;  {not used}
  76. keyEvtMsg = 9;      {keyboard event}
  77. superMsg = 10;      {show superuser controls}
  78. normalMsg = 11;     {show only normal controls}
  79. startupMsg = 12;    {code has been loaded}
  80.  
  81. TYPE
  82. DCtlPtr = ^DCtlEntry;
  83. DCtlHandle = ^DCtlPtr;
  84. DCtlEntry = RECORD
  85.     dCtlDriver: Ptr;
  86.     dCtlFlags: INTEGER;
  87.     dCtlQHdr: QHdr;
  88.     dCtlPosition: LONGINT;
  89.     dCtlStorage: Handle;
  90.     dCtlRefNum: INTEGER;
  91.     dCtlCurTicks: LONGINT;
  92.     dCtlWindow: WindowPtr;
  93.     dCtlDelay: INTEGER;
  94.     dCtlEMask: INTEGER;
  95.     dCtlMenu: INTEGER;
  96.     END;
  97.  
  98. AuxDCEPtr = ^AuxDCE;
  99. AuxDCEHandle = ^AuxDCEPtr;
  100. AuxDCE = PACKED RECORD
  101.     dCtlDriver: Ptr;
  102.     dCtlFlags: INTEGER;
  103.     dCtlQHdr: QHdr;
  104.     dCtlPosition: LONGINT;
  105.     dCtlStorage: Handle;
  106.     dCtlRefNum: INTEGER;
  107.     dCtlCurTicks: LONGINT;
  108.     dCtlWindow: GrafPtr;
  109.     dCtlDelay: INTEGER;
  110.     dCtlEMask: INTEGER;
  111.     dCtlMenu: INTEGER;
  112.     dCtlSlot: Byte;
  113.     dCtlSlotId: Byte;
  114.     dCtlDevBase: LONGINT;
  115.     dCtlOwner: Ptr;
  116.     dCtlExtDev: Byte;
  117.     fillByte: Byte;
  118.     END;
  119.  
  120.  
  121. FUNCTION GetDCtlEntry(refNum: INTEGER): DCtlHandle;
  122. FUNCTION SetChooserAlert(f: BOOLEAN): BOOLEAN;
  123. FUNCTION OpenDriver(name: Str255;VAR drvrRefNum: INTEGER): OSErr;
  124. FUNCTION CloseDriver(refNum: INTEGER): OSErr;
  125. FUNCTION Control(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr;
  126. FUNCTION Status(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr;
  127. FUNCTION KillIO(refNum: INTEGER): OSErr;
  128. FUNCTION PBControl(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  129. FUNCTION PBControlSync(paramBlock: ParmBlkPtr): OSErr;
  130.     INLINE $205F,$A004,$3E80;
  131. FUNCTION PBControlAsync(paramBlock: ParmBlkPtr): OSErr;
  132.     INLINE $205F,$A404,$3E80;
  133. FUNCTION PBStatus(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  134. FUNCTION PBStatusSync(paramBlock: ParmBlkPtr): OSErr;
  135.     INLINE $205F,$A005,$3E80;
  136. FUNCTION PBStatusAsync(paramBlock: ParmBlkPtr): OSErr;
  137.     INLINE $205F,$A405,$3E80;
  138. FUNCTION PBKillIO(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  139. FUNCTION PBKillIOSync(paramBlock: ParmBlkPtr): OSErr;
  140.     INLINE $205F,$A006,$3E80;
  141. FUNCTION PBKillIOAsync(paramBlock: ParmBlkPtr): OSErr;
  142.     INLINE $205F,$A406,$3E80;
  143.  
  144.  
  145. {$ENDC}    { UsingDevices }
  146.  
  147. {$IFC NOT UsingIncludes}
  148.     END.
  149. {$ENDC}
  150.  
  151.